#################################################################################
## Article: The Effect of Legislature Size on Public Spending: A Meta-Analysis ##
## Authors: Freire, Mignozzetti, Roman, and Alptekin                           ##
## Last Modified: 01 Dec, 2021                                                 ##
#################################################################################

# Needed packages
rm(list=ls())
pkgs <- c('tidyverse', 'data.table')

# Install if not already installed
installIfNot <- function(x) {
  if(x %in% rownames(installed.packages()) == FALSE) 
    install.packages(x, dependencies = T, repos = "http://cran.us.r-project.org")
} 
lapply(pkgs, installIfNot)

# Load packs
lapply(pkgs, require, character.only = T)
rm(pkgs, installIfNot)

# Paper 585 K
dat <- data.frame(
  id = 585,
  published = 'Yes',
  usemeta = 1, 
  method = 'PANEL',
  method2 = 'OLS/PANEL',
  elecsys = 'Mixed',
  elecsys2 = 'Non-Maj', elecsys3 = 'NM',
  agglevel = 'Countries',
  location = 'World',
  locationISO = 'Multiple (37)',
  instdesign = 'Mixed',
  title = 'Legislative organization and government spending: cross-country evidence',
  author = 'Bradbury and Crain',
  authorCite = 'J. Bradbury & M. Crain',
  year = 2001,
  authoryear = 'Bradbury and Crain (2001)',
  journal = 'Journal of Public Economics',
  journalCode = 'JPubE',
  web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
  table = 2,
  column = 5,
  indepvar = 'Upper size',
  indepvar2 = 'K',
  depvar = 'Percent of GDP',
  depvar2 = 'PCTGDP',
  coef = 0.01262,
  scoef = 'P',
  scoefsig = 'P',
  SE = 0.01262/2.12)

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 2,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.004964,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.004964/2.9
             ))

# Paper 585 K
dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 3,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = -0.01134,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.01134/4.52
             ))

# Paper 585 K
dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 4,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = -0.00559,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.00559/2.39
             ))

# Paper 585 N
dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 5,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.003627,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.003627/2.51
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 2,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.000517,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.000517/0.47
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 3,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.016946,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.016946/8.65
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 4,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.012337,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.012337/6.65
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 8,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.000395,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.000395/3.29
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 7,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.000694,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.000694/5.83
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 6,
               indepvar = 'Lower size',
               indepvar2 = 'N',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.000885,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.000885/7.13
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 8,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.000545,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.000545/1.37
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 7,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = -0.00027,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.00027/1.60
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 2,
               column = 6,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = -0.00048,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.00048/2.72
             ))


dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 3,
               column = 1,
               indepvar = 'Unicameral Size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.019286,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.019286/14.97
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 3,
               column = 2,
               indepvar = 'Unicameral Size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.020288,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.020288/17.34
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 3,
               column = 3,
               indepvar = 'Unicameral Size',
               indepvar2 = 'N',
               depvar = 'Percent of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.005933,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.005933/3.27
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 3,
               column = 4,
               indepvar = 'Unicameral size',
               indepvar2 = 'N',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.00113,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.00113/15.01
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 3,
               column = 5,
               indepvar = 'Unicameral size',
               indepvar2 = 'N',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.001201,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.001201/18.21
             ))

dat <- rbind(dat,
             data.frame(
               id = 585,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (37)',
               instdesign = 'Mixed',
               title = 'Legislative organization and government spending: cross-country evidence',
               author = 'Bradbury and Crain',
               authorCite = 'J. Bradbury & M. Crain',
               year = 2001,
               authoryear = 'Bradbury and Crain (2001)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://doi.org/10.1016/S0047-2727(00)00150-X',
               table = 3,
               column = 6,
               indepvar = 'Upper size',
               indepvar2 = 'K',
               depvar = 'Per Capita',
               depvar2 = 'ExpPC',
               coef = 0.000658,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.000658/6.25
             ))

# Paper 505
dat <- rbind(dat,
             data.frame(
               id = 505,
               published = 'Yes',
               usemeta = 1,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The Endogeneity of the Initiative: A Comment on Marschall and Ruhil',
               author = 'Matsusaka',
               authorCite = 'J. Matsusaka',
               year = 2005,
               authoryear = 'Matsusaka (2005)',
               journal = 'State Politics & Policy Quarterly',
               journalCode = 'SPPQ',
               web = 'https://www.jstor.org/stable/40421558',
               table = 1,
               column = 3,
               indepvar = 'Seats',
               indepvar2 = 'N',
               depvar = 'State Government Expenditure per Capita',
               depvar2 = 'ExpPC',
               coef = -0.96,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.18
             ))

# Paper 448
dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 4,
               column = 1,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.213,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.018
             ))

# Paper 448
dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 1,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 4,
               column = 2,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.229,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.037
             ))

# Paper 448
dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 4,
               column = 3,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.455,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.038
             ))

# Paper 448
dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 4,
               column = 4,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.411,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.049
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 1,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.226,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.053
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 2,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.213,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.317
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 3,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.185,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.305
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 4,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.235,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.336
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 5,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.374,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.064
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 6,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.811,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.181
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 7,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.795,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.176
             ))

dat <- rbind(dat,
             data.frame(
               id = 448,
               published = 'Yes',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'Legislature size and government spending in Italian regions: Forecasting the effects of a reform',
               author = 'Fiorino and Ricciuti',
               authorCite = 'N. Fiorino & R. Ricciuti',
               year = 2007,
               authoryear = 'Fiorino and Ricciuti (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-006-9108-y',
               table = 3,
               column = 8,
               indepvar = 'LEG',
               indepvar2 = 'N',
               depvar = 'Per Capita Regional expenditure',
               depvar2 = 'ExpPC',
               coef = 0.849,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.238
             ))

dat <- rbind(dat,
             data.frame(
               id = 974,
               published = 'No',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'Latin America',
               locationISO = 'Multiple (26)',
               instdesign = 'Mixed',
               title = 'Institutional arrangements and fiscal performance: the latin american experience',
               author = 'Stein, Talvi, and Grisanti',
               authorCite = 'E. Stein & E. Talvi & A. Grisanti',
               year = 1998,
               authoryear = 'Stein et al. (1998)',
               journal = 'NBER Working papers',
               journalCode = 'Unpub',
               web = 'https://www.nber.org/papers/w6358.pdf',
               table = 3,
               column = 1,
               indepvar = 'District magnitude',
               indepvar2 = 'logN',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.0109,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.0143
             ))

dat <- rbind(dat,
             data.frame(
               id = 974,
               published = 'No',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'Latin America',
               locationISO = 'Multiple (26)',
               instdesign = 'Mixed',
               title = 'Institutional arrangements and fiscal performance: the latin american experience',
               author = 'Stein, Talvi, and Grisanti',
               authorCite = 'E. Stein & E. Talvi & A. Grisanti',
               year = 1998,
               authoryear = 'Stein et al. (1998)',
               journal = 'NBER Working papers',
               journalCode = 'Unpub',
               web = 'https://www.nber.org/papers/w6358.pdf',
               table = 3,
               column = 4,
               indepvar = 'District magnitude',
               indepvar2 = 'logN',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.0135,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.0121
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 7,
               column = 4,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.003,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.001
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 7,
               column = 1,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.009,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.002
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 7,
               column = 2,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.011,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.003
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 7,
               column = 3,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.005,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.003
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 6,
               column = 1,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.04,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.001
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 6,
               column = 2,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.03,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.001
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 6,
               column = 3,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.01,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.002
             ))

dat <- rbind(dat,
             data.frame(
               id = 542,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (110)',
               instdesign = 'Mixed',
               title = 'Political Parties and the Size of Government in Multiparty Legislatures: Examining Cross-Country and Panel Data Evidence',
               author = 'Mukherjee',
               authorCite = 'B. Mukherjee',
               year = 2003,
               authoryear = 'Mukherjee (2003)',
               journal = 'Comparative Political Studies',
               journalCode = 'CPS',
               web = 'https://journals.sagepub.com/doi/pdf/10.1177/0010414003254240',
               table = 6,
               column = 4,
               indepvar = 'Seats in Lower Chamber',
               indepvar2 = 'N',
               depvar = 'Proportion expenditure GDP',
               depvar2 = 'PCTGDP',
               coef = 0.02,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.004
             ))

dat <- rbind(dat,
             data.frame(
               id = 886,
               published = 'No',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Brazil',
               locationISO = 'BRA',
               instdesign = 'Unicameral',
               title = 'Electoral systems, legislative fragmentation and public spending: a comparative analysis of brazilian states',
               author = 'Lledo',
               authorCite = 'V. Lledo',
               year = 2003,
               authoryear = 'Lledo (2003)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://lasa.international.pitt.edu/Lasa2003/LledoVictor.pdf',
               table = 7,
               column = 1,
               indepvar = 'Log (State Legislature Seats)',
               indepvar2 = 'logN',
               depvar = 'Primary Spending as a share of GSP',
               depvar2 = 'PCTGDP',
               coef = -4.69,
               scoef = 'N',
               scoefsig = NA,
               SE = -4.69/(-1.75)
             ))

dat <- rbind(dat,
             data.frame(
               id = 886,
               published = 'No',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Brazil',
               locationISO = 'BRA',
               instdesign = 'Unicameral',
               title = 'Electoral systems, legislative fragmentation and public spending: a comparative analysis of brazilian states',
               author = 'Lledo',
               authorCite = 'V. Lledo',
               year = 2003,
               authoryear = 'Lledo (2003)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://lasa.international.pitt.edu/Lasa2003/LledoVictor.pdf',
               table = 7,
               column = 5,
               indepvar = 'Log (State Legislature Seats)',
               indepvar2 = 'logN',
               depvar = 'Primary Spending as a share of GSP',
               depvar2 = 'PCTGDP',
               coef = -5.13,
               scoef = 'N',
               scoefsig = 'N',
               SE = -5.13/(-2.81)
             ))

dat <- rbind(dat,
             data.frame(
               id = 862,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Switzerland',
               locationISO = 'CHE',
               instdesign = 'Unicameral',
               title = 'Do large cabinets favor large governments? Evidence on the fiscal commons problem for Swiss Cantons',
               author = 'Schaltegger and Feld',
               authorCite = 'C. Schaltegger & L. Feld',
               year = 2009,
               authoryear = 'Schaltegger and Feld (2009)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272708001138?token=ADB01EB80E554D7E01D74DA0D9E36914B6F3D22121C18EC53B328A4863CE63C5457FC87C6A223E12338FD17437D454BF',
               table = 6,
               column = 4,
               indepvar = 'Seats in Parliament',
               indepvar2 = 'N',
               depvar = 'Expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 0.001,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.001
             ))

dat <- rbind(dat,
             data.frame(
               id = 862,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Switzerland',
               locationISO = 'CHE',
               instdesign = 'Unicameral',
               title = 'Do large cabinets favor large governments? Evidence on the fiscal commons problem for Swiss Cantons',
               author = 'Schaltegger and Feld',
               authorCite = 'C. Schaltegger & L. Feld',
               year = 2009,
               authoryear = 'Schaltegger and Feld (2009)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272708001138?token=ADB01EB80E554D7E01D74DA0D9E36914B6F3D22121C18EC53B328A4863CE63C5457FC87C6A223E12338FD17437D454BF',
               table = 6,
               column = 3,
               indepvar = 'Seats in Parliament',
               indepvar2 = 'N',
               depvar = 'Expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -0.001,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.001
             ))

## Baqir
dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 1,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 3,
               column = 3,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenduture per capita)',
               depvar2 = 'logExpPC',
               coef = 0.302,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.302/7.885
             ))

dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 3,
               column = 1,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenduture per capita)',
               depvar2 = 'logExpPC',
               coef = 0.276,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.276/7.185
             ))

dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 3,
               column = 2,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenduture per capita)',
               depvar2 = 'logExpPC',
               coef = 0.295,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.295/7.545
             ))

# dat <- rbind(dat,
#              data.frame(
#                id = 849,
#                published = 'No',
#                usemeta = 1,
#                method = 'OLS',
#                method2 = 'OLS/PANEL',
#                elecsys = 'Maj',
#                elecsys2 = 'Maj', elecsys3 = 'M',
#                agglevel = 'Local',
#                location = 'US',
#                locationISO = 'USA',
#                instdesign = 'Unicameral',
#                title = 'Districts, spillovers, and government overspending',
#                author = 'Baqir',
#                authorCite = 'R. Baqir',
#                year = 1999,
#                authoryear = 'Baqir (1999)',
#                journal = NA,
#                journalCode = 'Unpub',
#                web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
#                table = 3,
#                column = 6,
#                indepvar = 'Log (Council Size)',
#                indepvar2 = 'logN',
#                depvar = 'Expenditure Share',
#                depvar2 = 'PCTGDP',
#                coef = 2.066,
#                scoef = 'P',
#                scoefsig = 'P',
#                SE = 2.066/7.014
#              ))
# 
# dat <- rbind(dat,
#              data.frame(
#                id = 849,
#                published = 'No',
#                usemeta = 0,
#                method = 'OLS',
#                method2 = 'OLS/PANEL',
#                elecsys = 'Maj',
#                elecsys2 = 'Maj', elecsys3 = 'M',
#                agglevel = 'Local',
#                location = 'US',
#                locationISO = 'USA',
#                instdesign = 'Unicameral',
#                title = 'Districts, spillovers, and government overspending',
#                author = 'Baqir',
#                authorCite = 'R. Baqir',
#                year = 1999,
#                authoryear = 'Baqir (1999)',
#                journal = NA,
#                journalCode = 'Unpub',
#                web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
#                table = 3,
#                column = 4,
#                indepvar = 'Log (Council Size)',
#                indepvar2 = 'logN',
#                depvar = 'Expenditure Share',
#                depvar2 = 'PCTGDP',
#                coef = 2.012,
#                scoef = 'P',
#                scoefsig = 'P',
#                SE = 2.012/6.701
#              ))
# 
# dat <- rbind(dat,
#              data.frame(
#                id = 849,
#                published = 'No',
#                usemeta = 0,
#                method = 'OLS',
#                method2 = 'OLS/PANEL',
#                elecsys = 'Maj',
#                elecsys2 = 'Maj', elecsys3 = 'M',
#                agglevel = 'Local',
#                location = 'US',
#                locationISO = 'USA',
#                instdesign = 'Unicameral',
#                title = 'Districts, spillovers, and government overspending',
#                author = 'Baqir',
#                authorCite = 'R. Baqir',
#                year = 1999,
#                authoryear = 'Baqir (1999)',
#                journal = NA,
#                journalCode = 'Unpub',
#                web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
#                table = 3,
#                column = 5,
#                indepvar = 'Log (Council Size)',
#                indepvar2 = 'logN',
#                depvar = 'Expenditure Share',
#                depvar2 = 'PCTGDP',
#                coef = 2.468,
#                scoef = 'P',
#                scoefsig = 'P',
#                SE = 2.468/8.251
#              ))

dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 5,
               column = 1,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenditure per Capita)',
               depvar2 = 'logExpPC',
               coef = 0.268,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.268/6.451
             ))

dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 0,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 5,
               column = 2,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenditure per Capita)',
               depvar2 = 'logExpPC',
               coef = 0.286,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.286/6.009
             ))

dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 0,
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 5,
               column = 3,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenditure per Capita)',
               depvar2 = 'logExpPC',
               coef = 0.108,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.108/2.546
             ))

dat <- rbind(dat,
             data.frame(
               id = 849,
               published = 'No',
               usemeta = 0,
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districts, spillovers, and government overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 1999,
               authoryear = 'Baqir (1999)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
               table = 5,
               column = 4,
               indepvar = 'Log (Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log (Expenditure per Capita)',
               depvar2 = 'logExpPC',
               coef = 0.106,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.106/1.996
             ))

#dat <- rbind(dat,
#             data.frame(
#               id = 849,
#               published = 'No',
#               usemeta = 0,
#               method = 'OLS',
#               method2 = 'OLS/PANEL',
#               elecsys = 'Maj',
#               elecsys2 = 'Maj', elecsys3 = 'M',
#               agglevel = 'Local',
#               location = 'US',
#               locationISO = 'USA',
#               instdesign = 'Unicameral',
#               title = 'Districts, spillovers, and government overspending',
#               author = 'Baqir',
#               authorCite = 'R. Baqir',
#               year = 1999,
#               authoryear = 'Baqir (1999)',
#               journal = NA,
#               journalCode = 'Unpub',
#               web = 'http://documents.worldbank.org/curated/en/969221468781782275/pdf/multi-page.pdf',
#               table = 5,
#               column = 5,
#               indepvar = 'Log (Council Size)',
#               indepvar2 = 'logN',
#               depvar = 'Expenditure Share',
#               depvar2 = 'PCTGDP',
#               coef = 1.963,
#               scoef = 'P',
#               scoefsig = 'P',
#               SE = 1.963/5.702
#             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 1,
               indepvar = 'House size',
               indepvar2 = 'N',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.014,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.012
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 2,
               indepvar = 'House size',
               indepvar2 = 'N',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = -0.011,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.009
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 5,
               indepvar = 'House size',
               indepvar2 = 'N',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.007,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.007
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 6,
               indepvar = 'House size',
               indepvar2 = 'N',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.005,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.009
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 7,
               indepvar = 'House size',
               indepvar2 = 'N',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.005,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.009
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 10,
               indepvar = 'House size',
               indepvar2 = 'N',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.012,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.007
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 1,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 1,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.016,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.012
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 2,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.021,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.011
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 3,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.014,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.009
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 4,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.003,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.006
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 6,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.03,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.026
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 7,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.030,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.026
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 8,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.039,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.021
             ))

dat <- rbind(dat,
             data.frame(
               id = 1415,
               published = 'Yes',
               usemeta = 0,  
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (75)',
               instdesign = 'Mixed',
               title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2004,
               authoryear = 'Ricciuti (2004)',
               journal = 'Rivista di Politica Economica',
               journalCode = 'RivPE',
               web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
               table = 3,
               column = 9,
               indepvar = 'Senate size',
               indepvar2 = 'K',
               depvar = 'Government spending',
               depvar2 = 'PCTGDP',
               coef = 0.0127,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.014
             ))

# dat <- rbind(dat,
#              data.frame(
#                id = 1415,
#                published = 'Yes',
#                usemeta = 0,  
#                method = 'OLS',
#                method2 = 'OLS/PANEL',
#                elecsys = 'Mixed',
#                elecsys2 = 'Non-Maj', elecsys3 = 'NM',
#                agglevel = 'Countries',
#                location = 'World',
#                locationISO = 'Multiple (75)',
#                instdesign = 'Mixed',
#                title = 'Legislature size, bicameralism and government spending: evidence from democratic countries',
#                author = 'Ricciuti',
#                authorCite = 'R. Ricciuti',
#                year = 2004,
#                authoryear = 'Ricciuti (2004)',
#                journal = 'Rivista di Politica Economica',
#                journalCode = 'RivPE',
#                web = 'http://www.bemservizi.unito.it/repec/icr/wp2004/Ricciuti20-04.pdf',
#                table = 3,
#                column = 10,
#                indepvar = 'Senate size',
#                indepvar2 = 'K',
#                depvar = 'Government spending',
#                depvar2 = 'PCTGDP',
#                coef = 0.016,
#                scoef = 'P',
#                scoefsig = NA,
#                SE = 0.012
#              ))

dat <- rbind(dat,
             data.frame(
               id = 578,
               published = 'Yes',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districting and Government Overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 2002,
               authoryear = 'Baqir (2002)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://www.jstor.org/stable/pdf/10.1086/342804.pdf',
               table = 4,
               column = 4,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'ln(Government expenditure per capita)',
               depvar2 = 'logExpPC',
               coef = 0.1127,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0373
             ))

dat <- rbind(dat,
             data.frame(
               id = 578,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districting and Government Overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 2002,
               authoryear = 'Baqir (2002)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://www.jstor.org/stable/pdf/10.1086/342804.pdf',
               table = 4,
               column = 1,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'ln(Government expenditure per capita)',
               depvar2 = 'logExpPC',
               coef = 0.276,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0384
             ))

dat <- rbind(dat,
             data.frame(
               id = 578,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districting and Government Overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 2002,
               authoryear = 'Baqir (2002)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://www.jstor.org/stable/pdf/10.1086/342804.pdf',
               table = 4,
               column = 2,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'ln(Government expenditure per capita)',
               depvar2 = 'logExpPC',
               coef = 0.3021,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0383
             ))

dat <- rbind(dat,
             data.frame(
               id = 578,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Districting and Government Overspending',
               author = 'Baqir',
               authorCite = 'R. Baqir',
               year = 2002,
               authoryear = 'Baqir (2002)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://www.jstor.org/stable/pdf/10.1086/342804.pdf',
               table = 4,
               column = 3,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'ln(Government expenditure per capita)',
               depvar2 = 'logExpPC',
               coef = 0.3203,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0384
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 4,
               indepvar = 'Seats in lower chamber',
               indepvar2 = 'N',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -0.82,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.19
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 1,
               indepvar = 'Seats in lower chamber',
               indepvar2 = 'N',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -1.7,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.31
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 2,
               indepvar = 'Seats in lower chamber',
               indepvar2 = 'N',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -2.37,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.37
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 3,
               indepvar = 'Seats in lower chamber',
               indepvar2 = 'N',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -2.03,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.37
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 4,
               indepvar = 'Seats in upper chamber',
               indepvar2 = 'K',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 0.97,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.74
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 1,
               indepvar = 'Seats in upper chamber',
               indepvar2 = 'K',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 5.9,
               scoef = 'P',
               scoefsig = 'P',
               SE = 1.64
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 2,
               indepvar = 'Seats in upper chamber',
               indepvar2 = 'K',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 5.75,
               scoef = 'P',
               scoefsig = 'P',
               SE = 1.73
             ))

dat <- rbind(dat,
             data.frame(
               id = 467,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Institutional constraints on government spending',
               author = 'Primo',
               authorCite = 'D. Primo',
               year = 2006,
               authoryear = 'Primo (2006)',
               journal = 'Economics and Politics',
               journalCode = 'E\\&P',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1468-0343.2006.00171.x',
               table = 5,
               column = 3,
               indepvar = 'Seats in upper chamber',
               indepvar2 = 'K',
               depvar = 'Real state and local expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 6.96,
               scoef = 'P',
               scoefsig = 'P',
               SE = 2.22
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 4,
               column = 1,
               indepvar = 'Lower chamber size',
               indepvar2 = 'N',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = -2.04,
               scoef = 'N',
               scoefsig = NA,
               SE = 1.33
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 3,
               column = 1,
               indepvar = 'Lower chamber size',
               indepvar2 = 'N',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = -1.40,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.64
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 4,
               column = 1,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 26.09,
               scoef = 'P',
               scoefsig = 'P',
               SE = 7.45
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 3,
               column = 1,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 8.3,
               scoef = 'P',
               scoefsig = 'P',
               SE = 2.35
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 3,
               column = 2,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 5.14,
               scoef = 'P',
               scoefsig = 'P',
               SE = 2.53
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 3,
               column = 3,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 4.78,
               scoef = 'P',
               scoefsig = 'P',
               SE = 2.9
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 4,
               column = 2,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 20.38,
               scoef = 'P',
               scoefsig = 'P',
               SE = 6.47
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 4,
               column = 3,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 4.87,
               scoef = 'P',
               scoefsig = 'P',
               SE = 1.83
             ))

dat <- rbind(dat,
             data.frame(
               id = 441,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of k/n: the effect of chamber size on government spending in bicameral legislatures',
               author = 'Chen and Malhotra',
               authorCite = 'J. Chen & N. Malhotra',
               year = 2007,
               authoryear = 'Chen and Malhotra (2007)',
               journal = 'American Political Science Review',
               journalCode = 'APSR',
               web = 'https://www.cambridge.org/core/services/aop-cambridge-core/content/view/E794E71F3182DAAEA2DA1328D45FDCC7/S0003055407070566a.pdf',
               table = 4,
               column = 4,
               indepvar = 'Upper chamber size',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 26.75,
               scoef = 'P',
               scoefsig = 'P',
               SE = 13.21
             ))

dat <- rbind(dat,
             data.frame(
               id = 439,
               published = 'Yes',
               usemeta = 1,
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Legislative term limits and state spending',
               author = 'Erler',
               authorCite = 'H. A. Erler',
               year = 2007,
               authoryear = 'Erler (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://www.jstor.org/stable/27698198',
               table = 2,
               column = 1,
               indepvar = 'Number of seats',
               indepvar2 = 'N',
               depvar = 'Expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 3.93,
               scoef = 'P',
               scoefsig = NA,
               SE = 1.18
             ))

dat <- rbind(dat,
             data.frame(
               id = 439,
               published = 'Yes',
               usemeta = 1,
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Legislative term limits and state spending',
               author = 'Erler',
               authorCite = 'H. A. Erler',
               year = 2007,
               authoryear = 'Erler (2007)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://www.jstor.org/stable/27698198',
               table = 2,
               column = 2,
               indepvar = 'Number of seats',
               indepvar2 = 'N',
               depvar = 'Exp. as a % of Income',
               depvar2 = 'PCTGDP',
               coef = 0.0001,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.00004
             ))

dat <- rbind(dat,
             data.frame(
               id = 408,
               published = 'Yes',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'The impact of government structure on local public expenditures',
               author = 'MacDonald',
               authorCite = 'L. MacDonald',
               year = 2008,
               authoryear = 'MacDonald (2008)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-008-9308-8.pdf',
               table = 5,
               column = 3,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.136,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.136/2.92
             ))

dat <- rbind(dat,
             data.frame(
               id = 408,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'The impact of government structure on local public expenditures',
               author = 'MacDonald',
               authorCite = 'L. MacDonald',
               year = 2008,
               authoryear = 'MacDonald (2008)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-008-9308-8.pdf',
               table = 5,
               column = 1,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.2319,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.2319/4.56
             ))

dat <- rbind(dat,
             data.frame(
               id = 408,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'The impact of government structure on local public expenditures',
               author = 'MacDonald',
               authorCite = 'L. MacDonald',
               year = 2008,
               authoryear = 'MacDonald (2008)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-008-9308-8.pdf',
               table = 5,
               column = 2,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.1443,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.1443/2.91
             ))

dat <- rbind(dat,
             data.frame(
               id = 408,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'The impact of government structure on local public expenditures',
               author = 'MacDonald',
               authorCite = 'L. MacDonald',
               year = 2008,
               authoryear = 'MacDonald (2008)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-008-9308-8.pdf',
               table = 5,
               column = 4,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.1594,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.1594/3.05
             ))

dat <- rbind(dat,
             data.frame(
               id = 408,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'The impact of government structure on local public expenditures',
               author = 'MacDonald',
               authorCite = 'L. MacDonald',
               year = 2008,
               authoryear = 'MacDonald (2008)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-008-9308-8.pdf',
               table = 5,
               column = 5,
               indepvar = 'ln(Council Size)',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.2259,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.2259/4.04
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 1, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 5,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.159,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.041
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 6,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.147,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.041
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 7,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.09,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.039
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 8,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.081,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.039
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 9,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.088,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.038
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 1,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.21,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.023
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 2,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.157,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.037
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 3,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.199,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.04
             ))

dat <- rbind(dat,
             data.frame(
               id = 288,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Finland and Sweeden',
               locationISO = 'FIN \\& SWE',
               instdesign = 'Unicameral',
               title = 'Does the size of the legislature affect the size of government? evidence from two natural experimentss',
               author = 'Pettersson-Lidbom',
               authorCite = 'P. Pettersson-Lidbom',
               year = 2012,
               authoryear = 'Pettersson-Lidbom (2012)',
               journal = 'Journal of Public Economics',
               journalCode = 'JPubE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0047272711001319?token=45100FEA2EACE2CA32B3D4B12207371CDF7382DE23901C13F772F671CD7DF21671CE755BAA419EB3443B138C62CE37B2',
               table = 3,
               column = 4,
               indepvar = 'Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.169,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.041
             ))

dat <- rbind(dat,
             data.frame(
               id = 231,
               published = 'Yes',
               usemeta = 1, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Germany',
               locationISO = 'DEU',
               instdesign = 'Unicameral',
               title = 'Coalition governments, cabinet size, and the common pool problem: evidence from the german states',
               author = 'Baskaran',
               authorCite = 'T. Baskaran',
               year = 2013,
               authoryear = 'Baskaran (2013)',
               journal = 'European Journal of Political Economy',
               journalCode = 'EJPE',
               web = 'https://reader.elsevier.com/reader/sd/pii/S0176268013000773?token=FECF22AE9B176134ACEB47AC0F11ACEFB1EA36D2D73BE992E1471732604540D3DCBD2D4A9CFDE2E44BE0B65C947FA4E3',
               table = 3,
               column = 4,
               indepvar = 'Parliament seats',
               indepvar2 = 'N',
               depvar = 'Real Expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 0.974,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.974/1.743
             ))

dat <- rbind(dat,
             data.frame(
               id = 230,
               published = 'Yes',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (92)',
               instdesign = 'Mixed',
               title = 'Legislatures, Leaders and Leviathans',
               author = 'Maldonado',
               authorCite = 'B. Maldonado',
               year = 2013,
               authoryear = 'Maldonado (2013)',
               journal = 'Social Science Quarterly',
               journalCode = 'SSQ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1540-6237.2012.00895.x',
               table = 2,
               column = 2,
               indepvar = 'Size lower chamber',
               indepvar2 = 'N',
               depvar = 'Government Share of GDP',
               depvar2 = 'PCTGDP',
               coef = -0.0609,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.0117
             ))

dat <- rbind(dat,
             data.frame(
               id = 230,
               published = 'Yes',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (92)',
               instdesign = 'Mixed',
               title = 'Legislatures, Leaders and Leviathans',
               author = 'Maldonado',
               authorCite = 'B. Maldonado',
               year = 2013,
               authoryear = 'Maldonado (2013)',
               journal = 'Social Science Quarterly',
               journalCode = 'SSQ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1540-6237.2012.00895.x',
               table = 2,
               column = 2,
               indepvar = 'Size upper chamber',
               indepvar2 = 'K',
               depvar = 'Government Share of GDP',
               depvar2 = 'PCTGDP',
               coef = -0.04,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.0132
             ))

dat <- rbind(dat,
             data.frame(
               id = 230,
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (92)',
               instdesign = 'Unicameral',
               title = 'Legislatures, Leaders and Leviathans',
               author = 'Maldonado',
               authorCite = 'B. Maldonado',
               year = 2013,
               authoryear = 'Maldonado (2013)',
               journal = 'Social Science Quarterly',
               journalCode = 'SSQ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1111/j.1540-6237.2012.00895.x',
               table = 2,
               column = 1,
               indepvar = 'Size lower chamber',
               indepvar2 = 'N',
               depvar = 'Government Share of GDP',
               depvar2 = 'PCTGDP',
               coef = 0.0107,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0033
             ))

dat <- rbind(dat,
             data.frame(
               id = 220,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Switzerland',
               locationISO = 'CHE',
               instdesign = 'Unicameral',
               title = 'The impact of within-party and between-party ideological dispersion on fiscal outcomes: evidence from Swiss cantonal parliaments',
               author = 'Bjedov, Lapointe, and Madiès',
               authorCite = 'T. Bjedov & S. Lapointe & T. Madiès',
               year = 2014,
               authoryear = 'Bjedov et al. (2014)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-013-0149-8.pdf',
               table = 3,
               column = 1,
               indepvar = 'Number of seats',
               indepvar2 = 'N',
               depvar = 'Spending per capita',
               depvar2 = 'ExpPC',
               coef = -0.003,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.01
             ))

dat <- rbind(dat,
             data.frame(
               id = 220,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Switzerland',
               locationISO = 'CHE',
               instdesign = 'Unicameral',
               title = 'The impact of within-party and between-party ideological dispersion on fiscal outcomes: evidence from Swiss cantonal parliaments',
               author = 'Bjedov, Lapointe, and Madiès',
               authorCite = 'T. Bjedov & S. Lapointe & T. Madiès',
               year = 2014,
               authoryear = 'Bjedov et al. (2014)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-013-0149-8.pdf',
               table = 3,
               column = 3,
               indepvar = 'Number of seats',
               indepvar2 = 'N',
               depvar = 'Spending per capita',
               depvar2 = 'ExpPC',
               coef = -0.006,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.01
             ))

dat <- rbind(dat,
             data.frame(
               id = 220,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Switzerland',
               locationISO = 'CHE',
               instdesign = 'Unicameral',
               title = 'The impact of within-party and between-party ideological dispersion on fiscal outcomes: evidence from Swiss cantonal parliaments',
               author = 'Bjedov, Lapointe, and Madiès',
               authorCite = 'T. Bjedov & S. Lapointe & T. Madiès',
               year = 2014,
               authoryear = 'Bjedov et al. (2014)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-013-0149-8.pdf',
               table = 3,
               column = 2,
               indepvar = 'Number of seats',
               indepvar2 = 'N',
               depvar = 'Spending (%) GDP',
               depvar2 = 'PCTGDP',
               coef = -0.004,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.02
             ))

dat <- rbind(dat,
             data.frame(
               id = 220,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Switzerland',
               locationISO = 'CHE',
               instdesign = 'Unicameral',
               title = 'The impact of within-party and between-party ideological dispersion on fiscal outcomes: evidence from Swiss cantonal parliaments',
               author = 'Bjedov, Lapointe, and Madiès',
               authorCite = 'T. Bjedov & S. Lapointe & T. Madiès',
               year = 2014,
               authoryear = 'Bjedov et al. (2014)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-013-0149-8.pdf',
               table = 3,
               column = 4,
               indepvar = 'Number of seats',
               indepvar2 = 'N',
               depvar = 'Spending (%) GDP',
               depvar2 = 'PCTGDP',
               coef = -0.008,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.02
             ))

dat <- rbind(dat,
             data.frame(
               id = 208,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Communication in federal politics: universalism, policy uniformity, and the optimal allocation of fiscal authority',
               author = 'Kessler',
               authorCite = 'A. Kessler',
               year = 2014,
               authoryear = 'Kessler (2014)',
               journal = 'Journal of Political Economy',
               journalCode = 'JPE',
               web = 'https://www.jstor.org/stable/pdf/10.1086/676404.pdf?refreqid=excelsior%3A202fbd841dc5514e876482631872251b',
               table = 2,
               column = 4,
               indepvar = 'Council size',
               indepvar2 = 'N',
               depvar = 'Spending per capita',
               depvar2 = 'ExpPC',
               coef = 0.174,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.085
             ))

dat <- rbind(dat,
             data.frame(
               id = 208,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Communication in federal politics: universalism, policy uniformity, and the optimal allocation of fiscal authority',
               author = 'Kessler',
               authorCite = 'A. Kessler',
               year = 2014,
               authoryear = 'Kessler (2014)',
               journal = 'Journal of Political Economy',
               journalCode = 'JPE',
               web = 'https://www.jstor.org/stable/pdf/10.1086/676404.pdf?refreqid=excelsior%3A202fbd841dc5514e876482631872251b',
               table = 2,
               column = 1,
               indepvar = 'Council size',
               indepvar2 = 'N',
               depvar = 'Spending per capita',
               depvar2 = 'ExpPC',
               coef = 0.223,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.052
             ))

dat <- rbind(dat,
             data.frame(
               id = 208,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Communication in federal politics: universalism, policy uniformity, and the optimal allocation of fiscal authority',
               author = 'Kessler',
               authorCite = 'A. Kessler',
               year = 2014,
               authoryear = 'Kessler (2014)',
               journal = 'Journal of Political Economy',
               journalCode = 'JPE',
               web = 'https://www.jstor.org/stable/pdf/10.1086/676404.pdf?refreqid=excelsior%3A202fbd841dc5514e876482631872251b',
               table = 2,
               column = 2,
               indepvar = 'Council size',
               indepvar2 = 'N',
               depvar = 'Spending per capita',
               depvar2 = 'ExpPC',
               coef = 0.215,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.061
             ))

dat <- rbind(dat,
             data.frame(
               id = 208,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Communication in federal politics: universalism, policy uniformity, and the optimal allocation of fiscal authority',
               author = 'Kessler',
               authorCite = 'A. Kessler',
               year = 2014,
               authoryear = 'Kessler (2014)',
               journal = 'Journal of Political Economy',
               journalCode = 'JPE',
               web = 'https://www.jstor.org/stable/pdf/10.1086/676404.pdf?refreqid=excelsior%3A202fbd841dc5514e876482631872251b',
               table = 2,
               column = 3,
               indepvar = 'Council size',
               indepvar2 = 'N',
               depvar = 'Spending per capita',
               depvar2 = 'ExpPC',
               coef = 0.158,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.054
             ))

dat <- rbind(dat,
             data.frame(
               id = 3,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of 1/n revisited: distributive politics, legislature size, and the costs of collective action',
               author = 'Crowley',
               authorCite = 'G. Crowley',
               year = 2019,
               authoryear = 'Crowley (2019)',
               journal = 'Southern Economic Journal',
               journalCode = 'SEJ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1002/soej.12388',
               table = 2,
               column = 1,
               indepvar = 'Upper chamber (senate) seats',
               indepvar2 = 'K',
               depvar = 'Per capita total expenditure',
               depvar2 = 'ExpPC',
               coef = 8.21,
               scoef = 'P',
               scoefsig = 'P',
               SE = 4.051
             ))

dat <- rbind(dat,
             data.frame(
               id = 3,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of 1/n revisited: distributive politics, legislature size, and the costs of collective action',
               author = 'Crowley',
               authorCite = 'G. Crowley',
               year = 2019,
               authoryear = 'Crowley (2019)',
               journal = 'Southern Economic Journal',
               journalCode = 'SEJ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1002/soej.12388',
               table = 2,
               column = 2,
               indepvar = 'Upper chamber (senate) seats',
               indepvar2 = 'K',
               depvar = 'Per capita total expenditure',
               depvar2 = 'ExpPC',
               coef = 8.423,
               scoef = 'P',
               scoefsig = NA,
               SE = 18.17
             ))

dat <- rbind(dat,
             data.frame(
               id = 3,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of 1/n revisited: distributive politics, legislature size, and the costs of collective action',
               author = 'Crowley',
               authorCite = 'G. Crowley',
               year = 2019,
               authoryear = 'Crowley (2019)',
               journal = 'Southern Economic Journal',
               journalCode = 'SEJ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1002/soej.12388',
               table = 2,
               column = 3,
               indepvar = 'Upper chamber (senate) seats',
               indepvar2 = 'K',
               depvar = 'Per capita total expenditure',
               depvar2 = 'ExpPC',
               coef = 9.594,
               scoef = 'P',
               scoefsig = 'P',
               SE = 3.804
             ))

dat <- rbind(dat,
             data.frame(
               id = 3,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of 1/n revisited: distributive politics, legislature size, and the costs of collective action',
               author = 'Crowley',
               authorCite = 'G. Crowley',
               year = 2019,
               authoryear = 'Crowley (2019)',
               journal = 'Southern Economic Journal',
               journalCode = 'SEJ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1002/soej.12388',
               table = 2,
               column = 1,
               indepvar = 'Lower chamber (senate) seats',
               indepvar2 = 'N',
               depvar = 'Per capita total expenditure',
               depvar2 = 'ExpPC',
               coef = -0.351,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.745
             ))

dat <- rbind(dat,
             data.frame(
               id = 3,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of 1/n revisited: distributive politics, legislature size, and the costs of collective action',
               author = 'Crowley',
               authorCite = 'G. Crowley',
               year = 2019,
               authoryear = 'Crowley (2019)',
               journal = 'Southern Economic Journal',
               journalCode = 'SEJ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1002/soej.12388',
               table = 2,
               column = 2,
               indepvar = 'Lower chamber (senate) seats',
               indepvar2 = 'N',
               depvar = 'Per capita total expenditure',
               depvar2 = 'ExpPC',
               coef = 5.975,
               scoef = 'P',
               scoefsig = 'P',
               SE = 2.646
             ))

dat <- rbind(dat,
             data.frame(
               id = 3,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'The law of 1/n revisited: distributive politics, legislature size, and the costs of collective action',
               author = 'Crowley',
               authorCite = 'G. Crowley',
               year = 2019,
               authoryear = 'Crowley (2019)',
               journal = 'Southern Economic Journal',
               journalCode = 'SEJ',
               web = 'https://onlinelibrary.wiley.com/doi/epdf/10.1002/soej.12388',
               table = 2,
               column = 3,
               indepvar = 'Lower chamber (senate) seats',
               indepvar2 = 'N',
               depvar = 'Per capita total expenditure',
               depvar2 = 'ExpPC',
               coef = 7.658,
               scoef = 'P',
               scoefsig = 'P',
               SE = 3.922
             ))

dat <- rbind(dat,
             data.frame(
               id = 8,
               published = 'Yes',
               usemeta = 1, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Local',
               location = 'Indonesia',
               locationISO = 'IDN',
               instdesign = 'Unicameral',
               title = 'Legislature size, local government expenditure and taxation, and public service access in indonesia',
               author = 'Lewis',
               authorCite = 'B. Lewis',
               year = 2019,
               authoryear = 'Lewis (2019)',
               journal = 'Studies in Comparative International Development',
               journalCode = 'SCID',
               web = 'https://link.springer.com/content/pdf/10.1007/s12116-019-09278-1.pdf',
               table = 4,
               column = NA,
               indepvar = 'Legislature size',
               indepvar2 = 'N',
               depvar = 'Log per capita total expenditure',
               depvar2 = 'logExpPC',
               coef = -0.174,
               scoef = 'N',
               scoefsig = 'N',
               SE = (-0.174+0.245)/1.96
             ))

dat <- rbind(dat,
             data.frame(
               id = 42,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Court-ordered redistricting and the law of 1/n',
               author = 'Lee and Park',
               authorCite = 'D. Lee & S. Park',
               year = 2018,
               authoryear = 'Lee and Park (2018)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = NA,
               table = 2,
               column = 1,
               indepvar = 'Lower',
               indepvar2 = 'N',
               depvar = 'Total expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -0.851,
               scoef = 'N',
               scoefsig = NA,
               SE = 1.395
             ))

dat <- rbind(dat,
             data.frame(
               id = 42,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Court-ordered redistricting and the law of 1/n',
               author = 'Lee and Park',
               authorCite = 'D. Lee & S. Park',
               year = 2018,
               authoryear = 'Lee and Park (2018)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = NA,
               table = 2,
               column = 2,
               indepvar = 'Lower',
               indepvar2 = 'N',
               depvar = 'Total expenditure per capita',
               depvar2 = 'ExpPC',
               coef = -1.689,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.697
             ))

dat <- rbind(dat,
             data.frame(
               id = 42,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Court-ordered redistricting and the law of 1/n',
               author = 'Lee and Park',
               authorCite = 'D. Lee & S. Park',
               year = 2018,
               authoryear = 'Lee and Park (2018)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = NA,
               table = 2,
               column = 3,
               indepvar = 'Lower',
               indepvar2 = 'N',
               depvar = 'Total expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 7.632,
               scoef = 'N',
               scoefsig = NA,
               SE = 2.309
             ))

dat <- rbind(dat,
             data.frame(
               id = 42,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Court-ordered redistricting and the law of 1/n',
               author = 'Lee and Park',
               authorCite = 'D. Lee & S. Park',
               year = 2018,
               authoryear = 'Lee and Park (2018)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = NA,
               table = 2,
               column = 1,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Total expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 19.74,
               scoef = 'P',
               scoefsig = 'P',
               SE = 8.406
             ))

dat <- rbind(dat,
             data.frame(
               id = 42,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Court-ordered redistricting and the law of 1/n',
               author = 'Lee and Park',
               authorCite = 'D. Lee & S. Park',
               year = 2018,
               authoryear = 'Lee and Park (2018)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = NA,
               table = 2,
               column = 2,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Total expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 10.06,
               scoef = 'P',
               scoefsig = 'P',
               SE = 3.965
             ))

dat <- rbind(dat,
             data.frame(
               id = 42,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Court-ordered redistricting and the law of 1/n',
               author = 'Lee and Park',
               authorCite = 'D. Lee & S. Park',
               year = 2018,
               authoryear = 'Lee and Park (2018)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = NA,
               table = 2,
               column = 3,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Total expenditure per capita',
               depvar2 = 'ExpPC',
               coef = 9.062,
               scoef = 'P',
               scoefsig = NA,
               SE = 20.38
             ))

dat <- rbind(dat,
             data.frame(
               id = 82,
               published = 'Yes',
               usemeta = 1, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Local',
               location = 'Germany',
               locationISO = 'DEU',
               instdesign = 'Unicameral',
               title = 'The effect of legislature size on public spending: evidence from a regression discontinuity design',
               author = 'Höhmann',
               authorCite = 'D. Höhmann',
               year = 2017,
               authoryear = 'Höhmann (2017)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-017-0484-2.pdf',
               table = 2,
               column = 1,
               indepvar = 'Total number of seats in the legislature',
               indepvar2 = 'N',
               depvar = 'Log expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.03,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.01
             ))

dat <- rbind(dat,
             data.frame(
               id = 82,
               published = 'Yes',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Local',
               location = 'Germany',
               locationISO = 'DEU',
               instdesign = 'Unicameral',
               title = 'The effect of legislature size on public spending: evidence from a regression discontinuity design',
               author = 'Höhmann',
               authorCite = 'D. Höhmann',
               year = 2017,
               authoryear = 'Höhmann (2017)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-017-0484-2.pdf',
               table = 2,
               column = 2,
               indepvar = 'Total number of seats in the legislature',
               indepvar2 = 'N',
               depvar = 'Log expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.03,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.01
             ))

dat <- rbind(dat,
             data.frame(
               id = 82,
               published = 'Yes',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Local',
               location = 'Germany',
               locationISO = 'DEU',
               instdesign = 'Unicameral',
               title = 'The effect of legislature size on public spending: evidence from a regression discontinuity design',
               author = 'Höhmann',
               authorCite = 'D. Höhmann',
               year = 2017,
               authoryear = 'Höhmann (2017)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/content/pdf/10.1007/s11127-017-0484-2.pdf',
               table = 2,
               column = 3,
               indepvar = 'Total number of seats in the legislature',
               indepvar2 = 'N',
               depvar = 'Log expenditure per capita',
               depvar2 = 'logExpPC',
               coef = -0.04,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.02
             ))

dat <- rbind(dat,
             data.frame(
               id = 102,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Australia',
               locationISO = 'AUS',
               instdesign = 'Unicameral',
               title = 'The price of democracy? political representation structure and per capita expenditure in victorian local government',
               author = 'Drew and Dollery',
               authorCite = 'J. Drew & B. Dollery',
               year = 2017,
               authoryear = 'Drew and Dollery (2017)',
               journal = 'Urban Affairs Review',
               journalCode = 'UAR',
               web = '10.1007/s11127-016-0369-9',
               table = 2,
               column = 1,
               indepvar = 'No. of representatives',
               indepvar2 = 'N',
               depvar = 'Ln Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.077,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.028
             ))

dat <- rbind(dat,
             data.frame(
               id = 102,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'PR',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'States',
               location = 'Australia',
               locationISO = 'AUS',
               instdesign = 'Unicameral',
               title = 'The price of democracy? political representation structure and per capita expenditure in victorian local government',
               author = 'Drew and Dollery',
               authorCite = 'J. Drew & B. Dollery',
               year = 2017,
               authoryear = 'Drew and Dollery (2017)',
               journal = 'Urban Affairs Review',
               journalCode = 'UAR',
               web = '10.1007/s11127-016-0369-9',
               table = 2,
               column = 2,
               indepvar = 'No. of representatives',
               indepvar2 = 'N',
               depvar = 'Ln Expenditure per capita',
               depvar2 = 'logExpPC',
               coef = 0.031,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.022
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 1, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 1,
               indepvar = 'Lower',
               indepvar2 = 'N',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 0.0164,
               scoef = 'P',
               scoefsig = NA,
               SE = 1.313
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 1, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 1,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 38.44,
               scoef = 'P',
               scoefsig = 'P',
               SE = 19.23
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 2,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 37.85,
               scoef = 'P',
               scoefsig = 'P',
               SE = 17.77
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 3,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 25.61,
               scoef = 'P',
               scoefsig = 'P',
               SE = 13.48
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 4,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 5.996,
               scoef = 'P',
               scoefsig = 'P',
               SE = 13.06
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 5,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 25.56,
               scoef = 'P',
               scoefsig = 'P',
               SE = 13.49
             ))

dat <- rbind(dat,
             data.frame(
               id = 132,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV', 
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and bicameral bargaining',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2016,
               authoryear = 'Lee (2016)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = 'https://link.springer.com/article/10.1007/s11127-016-0369-9',
               table = 3,
               column = 6,
               indepvar = 'Upper',
               indepvar2 = 'K',
               depvar = 'Per capita expenditure',
               depvar2 = 'ExpPC',
               coef = 4.693,
               scoef = 'P',
               scoefsig = NA,
               SE = 12.35
             ))

dat <- rbind(dat,
             data.frame(
               id = 590,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Fiscal Policy, Legislature Size, and Political Parties',
               author = 'Gilligan and Matsusaka',
               authorCite = 'T. Gilligan & J. Matsusaka',
               year = 2001,
               authoryear = 'Gilligan and Matsusaka (2001)',
               journal = 'National Tax Journal',
               journalCode = 'NTJ',
               web = 'dx.doi.org/10.17310/ntj.2001.1.03',
               table = 3,
               column = 3,
               indepvar = 'Seats, lower house',
               indepvar2 = 'N',
               depvar = 'Expenditure',
               depvar2 = 'ExpPC',
               coef = -0.014,
               scoef = 'N',
               scoefsig = NA,
               SE = 0.012
             ))

dat <- rbind(dat,
             data.frame(
               id = 590,
               published = 'Yes',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Fiscal Policy, Legislature Size, and Political Parties',
               author = 'Gilligan and Matsusaka',
               authorCite = 'T. Gilligan & J. Matsusaka',
               year = 2001,
               authoryear = 'Gilligan and Matsusaka (2001)',
               journal = 'National Tax Journal',
               journalCode = 'NTJ',
               web = 'dx.doi.org/10.17310/ntj.2001.1.03',
               table = 3,
               column = 3,
               indepvar = 'Seats, upper house',
               indepvar2 = 'K',
               depvar = 'Expenditure',
               depvar2 = 'ExpPC',
               coef = 0.151,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.084
             ))

dat <- rbind(dat,
             data.frame(
               id = 590,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Fiscal Policy, Legislature Size, and Political Parties',
               author = 'Gilligan and Matsusaka',
               authorCite = 'T. Gilligan & J. Matsusaka',
               year = 2001,
               authoryear = 'Gilligan and Matsusaka (2001)',
               journal = 'National Tax Journal',
               journalCode = 'NTJ',
               web = 'dx.doi.org/10.17310/ntj.2001.1.03',
               table = 3,
               column = 2,
               indepvar = 'Seats, lower house',
               indepvar2 = 'N',
               depvar = 'Expenditure',
               depvar2 = 'ExpPC',
               coef = 0.004,
               scoef = 'P',
               scoefsig = NA,
               SE = 0.010
             ))

dat <- rbind(dat,
             data.frame(
               id = 590,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Fiscal Policy, Legislature Size, and Political Parties',
               author = 'Gilligan and Matsusaka',
               authorCite = 'T. Gilligan & J. Matsusaka',
               year = 2001,
               authoryear = 'Gilligan and Matsusaka (2001)',
               journal = 'National Tax Journal',
               journalCode = 'NTJ',
               web = 'dx.doi.org/10.17310/ntj.2001.1.03',
               table = 3,
               column = 2,
               indepvar = 'Seats, upper house',
               indepvar2 = 'K',
               depvar = 'Expenditure',
               depvar2 = 'ExpPC',
               coef = 0.214,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.073
             ))

dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 1, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 7,
               indepvar = 'NL',
               indepvar2 = 'N',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = -2.013,
               scoef = 'N',
               scoefsig = NA,
               SE = 1.306
             ))

# Paper 165 U
dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 1, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 7,
               indepvar = 'NU',
               indepvar2 = 'K',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = 20.39,
               scoef = 'P',
               scoefsig = NA,
               SE = 15.64
             ))

# Paper 165 N
dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 1, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 7,
               indepvar = 'NL',
               indepvar2 = 'N',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = -2.013,
               scoef = 'N',
               scoefsig = NA,
               SE = 1.306
             ))

# Paper 165
dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 1,
               indepvar = 'NL',
               indepvar2 = 'N',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = 1.475,
               scoef = 'P',
               scoefsig = NA,
               SE = 3.251
             ))

# Paper 165
dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 1,
               indepvar = 'NU',
               indepvar2 = 'K',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = 4.094,
               scoef = 'P',
               scoefsig = NA,
               SE = 13.21
             ))

# Paper 165
dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 4,
               indepvar = 'NL',
               indepvar2 = 'N',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = -0.268,
               scoef = 'N',
               scoefsig = NA,
               SE = 1.347
             ))

# Paper 165
dat <- rbind(dat,
             data.frame(
               id = 165,
               published = 'Yes',
               usemeta = 0, 
               method = 'IV',
               method2 = 'IV',
               elecsys = 'Maj',
               elecsys2 = 'Maj', elecsys3 = 'M',
               agglevel = 'States',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Bicameral',
               title = 'Supermajority rule and the law of 1/n',
               author = 'Lee',
               authorCite = 'D. Lee',
               year = 2015,
               authoryear = 'Lee (2015)',
               journal = 'Public Choice',
               journalCode = 'PC',
               web = '10.1007/s11127-015-0271-x',
               table = 4,
               column = 4,
               indepvar = 'NU',
               indepvar2 = 'K',
               depvar = 'Per Capita General Expenditure',
               depvar2 = 'ExpPC',
               coef = 32.77,
               scoef = 'P',
               scoefsig = 'P',
               SE = 16.66
             ))

dat <- rbind(dat,
             data.frame(
               id = 1205,
               published = 'No',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (23)',
               instdesign = 'Mixed',
               title = 'Representing Interests: Legislature Size, Constituency Size and Government Spending in a Panel of Countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2003,
               authoryear = 'Ricciuti (2003)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'https://www.researchgate.net/publication/46524577',
               table = 4,
               column = 3,
               indepvar = 'HSIZE',
               indepvar2 = 'N',
               depvar = 'Legislature Size and Government Spending',
               depvar2 = 'ExpPC',
               coef = 1.765,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.868
             ))

# Paper 1205 U
dat <- rbind(dat,
             data.frame(
               id = 1205,
               published = 'No',
               usemeta = 1, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (23)',
               instdesign = 'Mixed',
               title = 'Representing Interests: Legislature Size, Constituency Size and Government Spending in a Panel of Countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2003,
               authoryear = 'Ricciuti (2003)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'https://www.researchgate.net/publication/46524577',
               table = 4,
               column = 3,
               indepvar = 'SSIZE',
               indepvar2 = 'K',
               depvar = 'Legislature Size and Government Spending',
               depvar2 = 'ExpPC',
               coef = -3.924,
               scoef = 'N',
               scoefsig = 'N',
               SE = 1.312
             ))

# Paper 1205
dat <- rbind(dat,
             data.frame(
               id = 1205,
               published = 'No',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (23)',
               instdesign = 'Mixed',
               title = 'Representing Interests: Legislature Size, Constituency Size and Government Spending in a Panel of Countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2003,
               authoryear = 'Ricciuti (2003)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'https://www.researchgate.net/publication/46524577',
               table = 4,
               column = 4,
               indepvar = 'HSIZE',
               indepvar2 = 'N',
               depvar = 'Legislature Size and Government Spending',
               depvar2 = 'ExpPC',
               coef = 1.799,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.767
             ))

# Paper 1205
dat <- rbind(dat,
             data.frame(
               id = 1205,
               published = 'No',
               usemeta = 0, 
               method = 'PANEL',
               method2 = 'OLS/PANEL',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', elecsys3 = 'NM',
               agglevel = 'Countries',
               location = 'World',
               locationISO = 'Multiple (23)',
               instdesign = 'Mixed',
               title = 'Representing Interests: Legislature Size, Constituency Size and Government Spending in a Panel of Countries',
               author = 'Ricciuti',
               authorCite = 'R. Ricciuti',
               year = 2003,
               authoryear = 'Ricciuti (2003)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'https://www.researchgate.net/publication/46524577',
               table = 4,
               column = 4,
               indepvar = 'SSIZE',
               indepvar2 = 'K',
               depvar = 'Legislature Size and Government Spending',
               depvar2 = 'ExpPC',
               coef = -3.872,
               scoef = 'N',
               scoefsig = 'N',
               SE = 1.314
             ))

dat <- rbind(dat,
             data.frame(
               id = 'A258',
               published = 'Yes',
               usemeta = 1, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', 
               elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Government Form and Public Spending: Theory and Evidence from US Municipalities',
               author = 'Coate and Knight',
               authorCite = 'S. Coate & B. Knight',
               year = 2011,
               authoryear = 'Coate and Knight (2011)',
               journal = 'American Economic Journal: Economic Policy',
               journalCode = 'AEJ',
               web = 'https://www.aeaweb.org/articles?id=10.1257/pol.3.3.82',
               table = 4,
               column = 2,
               indepvar = 'Log Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Public Spending Per Capita',
               depvar2 = 'logExpPC',
               coef = 0.1716,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0427
             ))

# Paper A258
dat <- rbind(dat,
             data.frame(
               id = 'A258',
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', 
               elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Government Form and Public Spending: Theory and Evidence from US Municipalities',
               author = 'Coate and Knight',
               authorCite = 'S. Coate & B. Knight',
               year = 2011,
               authoryear = 'Coate and Knight (2011)',
               journal = 'American Economic Journal: Economic Policy',
               journalCode = 'AEJ',
               web = 'https://www.aeaweb.org/articles?id=10.1257/pol.3.3.82',
               table = 4,
               column = 1,
               indepvar = 'Log Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Public Spending Per Capita',
               depvar2 = 'logExpPC',
               coef = 0.1772,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0439
             ))

dat <- rbind(dat,
             data.frame(
               id = 'A258',
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', 
               elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Government Form and Public Spending: Theory and Evidence from US Municipalities',
               author = 'Coate and Knight',
               authorCite = 'S. Coate & B. Knight',
               year = 2011,
               authoryear = 'Coate and Knight (2011)',
               journal = 'American Economic Journal: Economic Policy',
               journalCode = 'AEJ',
               web = 'https://www.aeaweb.org/articles?id=10.1257/pol.3.3.82',
               table = 4,
               column = 3,
               indepvar = 'Log Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Public Spending Per Capita',
               depvar2 = 'logExpPC',
               coef = 0.1558,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0448
             ))

dat <- rbind(dat,
             data.frame(
               id = 'A258',
               published = 'Yes',
               usemeta = 0, 
               method = 'OLS',
               method2 = 'OLS/PANEL',
               elecsys = 'Maj',
               elecsys2 = 'Maj', 
               elecsys3 = 'M',
               agglevel = 'Local',
               location = 'US',
               locationISO = 'USA',
               instdesign = 'Unicameral',
               title = 'Government Form and Public Spending: Theory and Evidence from US Municipalities',
               author = 'Coate and Knight',
               authorCite = 'S. Coate & B. Knight',
               year = 2011,
               authoryear = 'Coate and Knight (2011)',
               journal = 'American Economic Journal: Economic Policy',
               journalCode = 'AEJ',
               web = 'https://www.aeaweb.org/articles?id=10.1257/pol.3.3.82',
               table = 4,
               column = 4,
               indepvar = 'Log Council Size',
               indepvar2 = 'logN',
               depvar = 'Log Public Spending Per Capita',
               depvar2 = 'logExpPC',
               coef = 0.2132,
               scoef = 'P',
               scoefsig = 'P',
               SE = 0.0491
             ))

dat <- rbind(dat,
             data.frame(
               id = 'A117',
               published = 'No',
               usemeta = 1, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', 
               elecsys3 = 'NM',
               agglevel = 'Local',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'The Effect of Council Size on Municipal Expenditures: Evidence from Italian Municipalities',
               author = 'De Benedetto',
               authorCite = 'M. De Benedetto',
               year = 2018,
               authoryear = 'De Benedetto (2018)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://eprints.bbk.ac.uk/26853/',
               table = 4,
               column = 2,
               indepvar = 'Council Size',
               indepvar2 = 'N',
               depvar = 'Log Public Spending Per Capita',
               depvar2 = 'logExpPC',
               coef = -0.0048,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.0025
             ))

dat <- rbind(dat,
             data.frame(
               id = 'A117',
               published = 'No',
               usemeta = 0, 
               method = 'RDD',
               method2 = 'RDD',
               elecsys = 'Mixed',
               elecsys2 = 'Non-Maj', 
               elecsys3 = 'NM',
               agglevel = 'Local',
               location = 'Italy',
               locationISO = 'ITA',
               instdesign = 'Unicameral',
               title = 'The Effect of Council Size on Municipal Expenditures: Evidence from Italian Municipalities',
               author = 'De Benedetto',
               authorCite = 'M. De Benedetto',
               year = 2018,
               authoryear = 'De Benedetto (2018)',
               journal = NA,
               journalCode = 'Unpub',
               web = 'http://eprints.bbk.ac.uk/26853/',
               table = 4,
               column = 1,
               indepvar = 'Council Size',
               indepvar2 = 'N',
               depvar = 'Log Public Spending Per Capita',
               depvar2 = 'logExpPC',
               coef = -0.0046,
               scoef = 'N',
               scoefsig = 'N',
               SE = 0.0024
             ))

# Processing
dat <- unique(dat)
dat <- dat[order(dat$id),]
dat <- dat[!is.na(dat$coef),]
row.names(dat) <- NULL
levels(dat$elecsys2) <- c('Majoritarian', 'Non-Majoritarian')
dat$scoef <- factor(as.character(dat$scoef), labels = c('N', 'P'))
dat$scoefsig <- factor(as.character(dat$scoefsig), labels = c('N', 'P'))
levels(dat$scoef) <- c('Negative', 'Positive')
levels(dat$scoefsig) <- c('Negative', 'Positive')
dat$method <- factor(as.character(dat$method), 
                     levels = c("OLS", "PANEL", "IV", "RDD"))
dat$method2 <- factor(as.character(dat$method2), 
                     levels = c("OLS/PANEL", "IV", "RDD"))
dat$location2 <- as.character(dat$location)
dat$location2[dat$location2!='World'] = 'Country'
dat$location2 <- factor(as.character(dat$location2), 
                        levels = c("Country", "World"))
dat$agglevel <- factor(as.character(dat$agglevel), 
                       levels = c("Local", "States", "Countries"))
dat$agglevel2 <- dat$agglevel
levels(dat$agglevel2) = c("Country", "Country", "Cross-Country")
dat$scoefnd <- as.character(dat$scoef)
dat$scoefnd[dat$scoefsig=='Positive'&dat$scoef=='Positive'&!is.na(dat$scoefsig)] = 'Positive Significant'
dat$scoefnd[dat$scoefnd=='Positive'] = 'Positive Insignificant'
dat$scoefnd[dat$scoefsig=='Negative'&dat$scoef=='Negative'&!is.na(dat$scoefsig)] = 'Negative Significant'
dat$scoefnd[dat$scoefnd=='Negative'] = 'Negative Insignificant'

# Create indicator
dat <- arrange(dat, id) %>%
  mutate(id_paper = rleid(id)) %>%
  mutate(id_level1 = ifelse(id %in% c('3', '42', '132', '165',
                                      '439', '441', '467', '505'), '3-505', 
                            ifelse(id %in% c('408', '208', 'A258'), '408-A258', 
                                   ifelse(id %in% c('849', '578'), '849-578', id)))) %>%
  group_by(id_paper) %>%
  mutate(id_model = row_number()) %>%
  ungroup() %>%
  group_by(id_level1) %>%
  mutate(id_level2 = row_number()) %>%
  ungroup() %>%
  relocate(id_paper, .after = id) %>%
  relocate(id_model, .after = id_paper) %>%
  relocate(id_level1, .after = id_model) %>%
  relocate(id_level2, .after = id_level1) %>%
  mutate(VAR = SE^2)

# Inst Design 2
dat <- dat %>%
  mutate(instdesign2 = ifelse(instdesign == 'Unicameral',
                              'Unicameral', 'Non-Unicameral')) %>%
  relocate(instdesign2, .after = instdesign)

# Full data and partial data
fulldat <- dat
dat <- dat %>%
  filter(usemeta == 1)

## Saving
save.image('../dataset/dataCoefs.RData')
